home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
DS-CD ROM 2 1993 August
/
DS CD-ROM 2.Ausgabe (August 1993).iso
/
geschaef
/
ds0093
/
topfakt
/
ls.for
< prev
next >
Wrap
Text File
|
1993-06-30
|
8KB
|
142 lines
/ FORMULAR LIEFERSCHEIN
/ das, was nach / bzw. // steht, wird nicht gedruckt
^E ^12 // Druck in Entwurfsqualität, Größe 12 CPI
!LINKER RAND 6 // ein Rand von 6 Zeichen
!AUSDRUCKE 1 // Anzahl der Ausdrucke festlegen
/
!WENN #Seite= 1 // Firmenkopf+ Adresse nur auf 1.Seite drucken
#Firmenkopf // Firmenkopf einsetzen (7 Zeilen lang)
^17^U#Firmenabsender ^u ^12 // Ihr Absender in 17 CPI & unterstrichen
#Anrede
#Vorname#Name
[[#Name2 ]] // diese Zeile nicht drucken, wenn Name2 leer
#Strasse
^F #Land#Plz #Ort ^f // diese Zeile in fett
!ENDE WENN #Seite=1
!GEHE ZU ZEILE 15 // für Druck ab 2. Seite, damit vorgedruckter Briefkopf nicht überschrieben wd.
Lieferschein Nr. : #AtrNr:8:0
Kunden-Nr. : #KdNr:8:0
[[Bestätigung vom : #AbDatum ]]
[[Lieferscheindatum : #LsDatum ]]
[[Rechnungsdatum : #RgDatum ]]
[[Valuta : #ValutaDatum ]]
[[Seite : #SEITE2:8:0 ]] // Erst ab 2.Seite drucken
^BLIEFERSCHEIN ^b ^12 #Vermerk
[[#Kopftext:79 ]]
──────────────────────────────────────────────────────────────────────────────────
Artikelnr. Bezeichnung Menge Einh.
──────────────────────────────────────────────────────────────────────────────────
/234567890 1234567890123456789012345678901234567890123456789012345 123456789 12345
!LISTE:52 // Liste max.bis Druckzeile 52
#ArtNr #ArtText:55 #MEN:9 #EINH
!ENDELISTE
──────────────────────────────────────────────────────────────────────────────────
!WENN #LetzteSeite
[[#Fusstext:79 ]]
/
!GEHE ZU ZEILE 56
Wir danken für Ihren Auftrag und verbleiben mit freundlichen Grüßen.
^17#Bank1 #Bank2 #Bank3 ^12
^17#Blz1 #Kontonr1 #Blz2 #Kontonr2 #Blz3 #Kontonr3 ^12
/
!ENDE WENN #LetzteSeite
!SEITENAUSWURF
!FORMULARENDE // alles, was hiernach kommt, wird nicht mehr gedruckt...
*******************************************************************************
/ Es folgt die Definition der Platzhalter, die Sie nicht löschen sollten.
/ Sie können die Platzhalter ändern und ergänzen, allerdings auf eigene Gefahr.
*******************************************************************************
!PLATZHALTER
#AtrNr , ako->at_nr
#KdNr , ako->at_kdnr
#FIRMENABSENDER , fir->fenster
#ANREDE , kun->anrede
#VORNAME , LTrim( Trim( kun->n1)+ ' ')
#NAME , kun->n2
#NAME2 , kun->ansprechp
#STRASSE , kun->strasse
#LAND , Trim( kun->land)+ IF( .NOT. Empty( kun->land), '-', '')
#PLZ , kun->plz
#ORT , kun->ort
#Briefanrede, Trim( kun->briefanred)+ IF( ! Empty( kun->briefanred), ',', '')
#AgDatum , ako->at_dat // Datum des Angebots (=Auftrag vom)
#AbDatum , ako->at_bestdat // Datum der Auftragsbestätigung
#LsDatum , ako->at_liefdat // Datum des Lieferscheins (falls gedruckt)
#RgDatum , ako->at_rgdat // Datum der Rechnung
#GsDatum , ako->at_rgdat // Datum der Gutschrift
#ValutaDatum, ako->at_valuta
#AtrBrutto , ako->at_mwstinc='J' // Auftrag=Brutto (Mwst. incl.)
#AtrNetto , ako->at_mwstinc$'N0' // Auftrag=Netto (Mwst. zzgl.)
#AtrAusland , ako->at_mwstinc='0' // Auftrag Ohne Steuer
#AtrRabatt , ako->at_rabatt // im Auftragskopf eingegebener Rabatt
#TextPosition, IsTextApo() // enthält Position nur Text?
#RabattProz, apo->art_rabatt // Rabatt der einzelnen Position
#RabattProz2, kun->rabatt2 // zusätzlicher fester 2.Kundenrabatt
#Rabattitel, IF( #AtrRabatt <> 0, 'Rabatt', '')
#Rabatt1, IF( Empty( #RabattProz) .OR. IsTextApo(), ' ', Str( #RabattProz,5,2)+ '%')
#Rabatt2, IF( Empty( #RabattProz2) .OR. IsTextApo(), '', Str( #RabattProz2,5,2)+ '%')
#EINH, apo->Mengeneinh
#MEN , IF( IsTextApo(), '', apo->liefmenge ) // Menge der Position
#EPreis , IF( IsTextApo(), '', apo->epreis ) // Einzelpreis der Position
#GP , gespreis // Variable für den berechneten GPreis
#Summe, Summe // Auftr.summe Netto bzw. Brutto
#RabattGesamt, rabattges // Rabattbetrag des Auftrags Netto bzw. Brutto
#StBez , fir->bezsteuer // Bezeichnung der Steuer: Mwst./WUST...
#STP1 , MwstForm( fir->mwst1)
#STP2 , MwstForm( fir->mwst2)
#NettoSumme1 , NettoSum1 // Nettosumme für Art. mit 1. Mwstsatz
#NettoSumme2 , NettoSum2 // Nettosumme für Art. mit 2. Mwstsatz
#SteuerSumme1 , NettoSum1 * fir->mwst1 / 100 // Steuerbetrag für Steuersatz 1
#SteuerSumme2 , NettoSum2 * fir->mwst2 / 100 // Steuerbetrag für Steuersatz 2
#BruttoSumme , #Summe + #SteuerSumme1 + #SteuerSumme2
#Auftragsumme, IF( #AtrBrutto, #Summe, #BruttoSumme ) // Endsumme Auftrag
#Pos, apo->pos+ IF( Empty( apo->pos), ' ', '.') // Durchnummerierung der Positionen
#ArtNr , IF( IsTextApo( apo->art_nr), ' ', apo->art_nr)
#ArtName , Trim( apo->Art_name) // Artikelkurzbezeichung
#ArtText , Trim( apo->Text) // Ausführlicher Text
#ArtStSatz , apo->art_mwsatz // Steuersatz: 1/2/0
#ArtStProz , mwst( #ArtStSatz) // Steuer-Prozentsatz
#ArtSteuer1 , IF( #ArtStSatz= 1, IF( ako->at_mwstinc='N', #GP* #ArtStProz/100, #GP- #GP /( 1+ #ArtStProz/100)), 0)
#ArtSteuer2 , IF( #ArtStSatz= 2, IF( ako->at_mwstinc='N', #GP* #ArtStProz/100, #GP- #GP /( 1+ #ArtStProz/100)), 0)
#NettoPreisSteuer1, IF( apo->art_mwsatz= 1, IF( ako->at_mwstinc='N', #GP, #GP /( 1+ #ArtStProz/100)), 0)
#NettoPreisSteuer2, IF( apo->art_mwsatz= 2, IF( ako->at_mwstinc='N', #GP, #GP /( 1+ #ArtStProz/100)), 0)
#Vermerk, IF( Substr( ako->at_titel,1,1)= '"', '', ako->at_titel)
#Kopftext , IF( #Seite=1, ako->at_kopf, '')
#Fusstext , ako->at_fuss
#Nachnahme, "Nachnahme" $ "#Fusstext" // Steht "Nachn." im Fusstext des Auftrags?
#ZahlungIn, ako->zahlungin // Zahlbar innerhalb .. Tagen
#ZahlungBisDatum, IF( #ZahlungIn = 0, '', ako->at_rgdat + #ZahlungIn )
#SkontoProz, ako->skonto // Skonto in Prozent
#SkontoTage, ako->skontotage // Tage, innerhalb deren Skonto gewährt wird
#SkontoBisDatum, ako->at_rgdat + #SkontoTage
#SkontoBetrag, #Auftragsumme * (#SkontoProz / 100)
#Bank1, fir->bank1 // 1. Bankverbindung
#Blz1, fir->blz_1
#Kontonr1, fir->knr_1
#Bank2, fir->bank2 // 2. Bankverbindung
#Blz2, fir->blz_2
#Kontonr2, fir->knr_2
#Bank3, Trim( fir->bank3) // 3. Bankverbindung
#Blz3, fir->blz_3
#Kontonr3, Trim( fir->knr_3)
!ENDE PLATZHALTER